unit SelectdeleteData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ReportList, RM_class, RM_dset, RM_dbset, ImgList, GridsEh,
  DBGridEh, RzPanel, RzButton, ExtCtrls;

type
  TSelectdeleteDataFrm = class(TReportListFrm)
    BtnClear: TRzToolButton;
    procedure SearchClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure BtnClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectdeleteDataFrm: TSelectdeleteDataFrm;

implementation

uses DM, SelectTable;

{$R *.dfm}

procedure TSelectdeleteDataFrm.SearchClick(Sender: TObject);
begin
  inherited;
  try
    SelectTableFrm := TSelectTableFrm.Create(self);
    SelectTableFrm.ShowModal;
  finally
    SelectTableFrm.Free;
  end;
end;

procedure TSelectdeleteDataFrm.ToolButton5Click(Sender: TObject);
begin
  inherited;
  dmMain.tblOne.Delete;

  
end;

procedure TSelectdeleteDataFrm.BtnClearClick(Sender: TObject);
begin
  inherited;
  dmMain.tblOne.Filtered := False;
  dmMain.tblOne.Filter := '';
end;

end.
